From 0f80d0f95cbf133f52f64578d6a152e7e48ceb0e Mon Sep 17 00:00:00 2001 From: Justin Burkett Date: Sun, 25 Feb 2018 22:51:11 -0500 Subject: [PATCH] Use symbol at point in whow keymap functions --- which-key.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/which-key.el b/which-key.el index 818ef17d2b7..fe68c9db834 100644 --- a/which-key.el +++ b/which-key.el @@ -2298,7 +2298,12 @@ Only if no keys fit fallback to LOC2." (keymapp (symbol-value m)) (not (equal (symbol-value m) (make-sparse-keymap))))) - t nil 'which-key-keymap-history)))) + t + (let ((sym (symbol-at-point))) + (and (boundp sym) + (keymapp (symbol-value sym)) + (symbol-name sym))) + 'which-key-keymap-history)))) (which-key--show-keymap (symbol-name keymap-sym) (symbol-value keymap-sym) nil all))) -- 2.30.2